﻿Public Class EmkMaasBaglama : Inherits Process

	Public Overrides Sub GenericEvent(ByVal e As ProcessEventArgs)
		Select Case e.EventType
			Case EventType.Initialize
				Start("Emekli maaş aktarımı", "Kimlik bilgisini girin.")
				AddField("@kimlik", "nl", "", "Kimlik numarasını girmek zorundasınız.")
				StartBody()
				AddDataWindow()
			Case EventType.Shown
				DataWindow.AddGroup("Genel bilgiler", "hturu*;kararno*;kimlik*;adi;soyadi;cins;dtar")
				DataWindow.AddGroup("Hesap bilgileri", "bolgekod;odeyerkod;bankahno;bhesnotar")
				DataWindow.AddGroup("İletişim bilgileri", "adr;adrsemt;adrsehir")
				DataWindow.AddGroup("Maaş bilgileri", "ymbastar;derece;basamak;yderece;ybasamak;katsayi1;katsayi2;ykatsayi1")
				DataWindow.AddGroup("Çalışma bilgileri", "demeklisi;calisdrm")
				DataWindow.AddGroup("Geçici 9. madde", "tmtpogs;muchpogs;devhpogs")
				DataWindow.AddGroup("Gün sayıları", "kcpogs;ssdpogs;tcpogs;borcpogs;borc95Apogs;taleppogs;ortalamapogs;toplampogs")
				DataWindow.AddGroup("Kayıt bilgileri", "islemtar*;kaykul*;rowid*")
			Case EventType.ValidateForm
				'Rs = Emeklilik.KararAra(Remote, Input("Kimlik"))
				Rs = Emeklilik.KimlikAra(Remote, Input("Kimlik"))
				If Check("Kimlik", Rs.EOF, "Maaş bağlama kararı bulunamadı") Then Exit Sub
				DataWindow.Recordset = Rs
				Buttons.Show("Save.Reset")
				e.Result = True
			Case EventType.Save
		End Select
	End Sub


End Class
